PRECEDE;  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
func FUN.FUN[SCR,LCS];
COMMON TOOT TOP BOTM;
*
top  0 1 8;	< BG time=0, inst 1 plays 8 notes.

P2 rhy/8/16//8//4//2; < Rhythm is 8th,  2 16ths,  2 8ths,  2 quarters,
                       half.  See section 4 and following for use
       		       of 'RHY', 'NOTES', etc.
        
P3 NOTES/C4/D/E/f/G/a/B/C5; < Scale goes up from middle C.

P4 .45;  < AMPLITUDE FACTOR
P5 F2; < SOSTENUTO ENVELOPE
P13 F0;  < A SINE WAVE
end;< Ampl(P4)=500, envelope is sostenuto (F2).

BOTM ;      P2 RHY/4 X 4/2/FINE; < 4 quarters and 1 half. 'FINE'=END

P3 NoteS/C3/A/F/G/C;<Bass notes

P4 .5 ; 
< AMPLITUDE FACTOR IS .5
P5 F3; < F3 will give semi-staccato.
P13 F4; < CLARINET-LIKE TONE
END;

temPO/ 96 ; < MM=96 

ruN;